﻿' <summary>
' BeeWit IDE Entorno de desarrollo Visual para php.
' BeeWitPHP IDE es el único entorno de desarrollo para PHP 
' de tipo WYSIWYG (What You See Is What You Get). 
' ¡Ahora si!, aproveche la potencia del lenguaje PHP 
' y desarrolle más rápidamente gracias a la programación 
' intuitiva de BeeWit.
' Copyright © 2010 Dewins Murillo Garcia 
' EMAIL: dewinsmg@gmail.com
' EMAIL: dewins@beewitsoft.com
' Este Programa es Software Libre: usted puede redistribuirlo 
' y/o modificarlo bajo los términos de la Licencia Publica General 
' GNU como es publicada por la Fundacion de Software Libre; 
' en la 3ra versión de la licencia.
' Este programa es distribuido con la esperanza de que sea útil, 
' pero SIN GARANTÍA ALGUNA; sin siquiera la garantía implícita 
' de VALOR COMERCIAL o FORMADO PARA UN PROPÓSITO EN PARTICULAR. 
' Vea la Licencia Publica General GNU para mas detalles.
' Usted debe haber recibido una copia de la Licencia Publica General 
' GNU junto con este programa. Si no, vaya a http://www.beewitsoft.com
' o en http://code.google.com/p/ajax-beewit-php-ide/
' </summary>
' <remarks></remarks>

Public Class clsPhpFunctions
    Private ds As New DataSet("expressions")
    Private tb_phpfunctions As DataTable

    Structure PhpFunctions
        Dim PhpFunctionName As String
        Dim PhpFunctionDescription As String
        Dim PhpFunctionParameters As String
    End Structure

    Public Sub New()
        ds.ReadXml(Application.StartupPath & "\resources\xml\phpfunctions.xml")
        tb_phpfunctions = ds.Tables("function")
    End Sub

    Public Function GetFunctions(ByVal Word As String) As PhpFunctions()
        Dim Data() As PhpFunctions
        Dim iRow As Long = -1
        Dim AddVar As Boolean = True
        Data = Nothing
        For Each aFunction As DataRow In tb_phpfunctions.Rows
            If aFunction("name") Like Word & "*" Then
                iRow += 1
                ReDim Preserve Data(iRow)
                Data(iRow).PhpFunctionName = aFunction("name")
                Data(iRow).PhpFunctionDescription = aFunction("description")
                Data(iRow).PhpFunctionParameters = aFunction("parameters")
            End If
        Next
        Return Data
    End Function


End Class
